Dim I as integer
Dim node_letter As String
        tvTreeView.Nodes.Clear()

        'Set the Document Type
        tvTreeView.Nodes.Add("PhoneBook")

        'Set the Documents
        tvTreeView.SelectedNode = tvTreeView.Nodes.Item(0)

        tvTreeView.ExpandAll()
        tvTreeView.ShowLines = True
        tvTreeView.ShowPlusMinus = True
        For I = 1 To 26
            node_letter = node_letter = Chr(64 + I)
            tvTreeView.SelectedNode.Nodes.Add(node_letter)
        Next I
